Contact-Last-Used names an undocumented function, with lambda list (OBJECT).
(SETF Contact-Last-Used) names an undocumented function, with lambda list (NEW-VALUE OBJECT).